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MODULE COBSIOEXCEPTION( 
. T = '1-039' ! file: COBIOEXCE.832 EDIT:BH1039 


eee eRe AAA AAAAAAAAAEAAEAAAAEAAAAE RATA TER ERAAAAAAAEAARAAERATAEREEAAAAE ES 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'e ALL RIGHTS RESERVED. 


+ 
® 

* 

® 

4 ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE rs AND COPIED * 
} IN ACCORDANCE WITH THE TERMS OF H LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
t* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
} ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. ° 
4 ® 
!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!t CORPORATION. . 
® 

® 

% 

® 

+ 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eRR RRA AAAAARAAAAAEEEAAEAEAE EERE AAA AAE REAR RARER AAA AAAAEREKEAAAAAAAEAAEE 
' 


+e 
FACILITY: COBOL SUPPORT 
ABSTRACT: 


This procedure is called to process a wide versety of 1/0 
exceptions. Depending on the nature of the exception, it sets the 
file status variable, causes USE procedures to be invoked and 
signals errors. 


ENVIRONMENT: Vax-11 User Mode 
AUTHOR: MLJ , CREATION DATE: 02-MAY-1979 
MODIFIED BY: 


1-001 = Original. MLJ 02-MAY-1979 

1-002 = Added boilerplate and comments. RKR 22-AUG-1979 ; 

1-003 - Redesigned control tables to allow additional checking on 
status of state yor tenles -- option file errors and repeated 
EOF error mechan sms. RKR 10-SEPT-1979 

1-004 - Added additional statuses (RMS$_FAB and RMS$_RAB) to control 
kablog and delete explicit checks for “‘FNO’’ Flag. 
RKR 12-SEPT=- 


1-005 = Complete revamp of action codes in control table RKR 13-SEPT-79 
1-006 - 7 op Pl a codes to READ S S and READ R S control tables 
1-007 = Fetch COBDEF from RTLIN rather than LIB$. RKR 18-SEPT-79 
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1foseo- 1984 93: 0:48 COBRTL.SR acic COBIDE XCE.B52;1 


ere COBSK EXC. CLORS to SET. RKR 18-SEP-79 
x endcoding and decoding of error messages. RKR 19-SEPT-79 


oes g bogic.t to gf 'seriainete between COBS_REASMMIN, COBS_WRISMAMIN, and COBS_REWSMAMIN. 


Added gages ic for unexpected SR syetion $p which a RMS 
success code is coe eg 
hake symbolic name of LIBRARY file. RKR 1-0CT-79 

t a COBSSINVOKE _USE foneued of COBSINVOKE_USE 


i output ing the COBS_NO chisin error message since it 
contains no information whith not also contained in 

the subsequent more specific message. 

Add git to CLOSE_T to try to catch a CLOSE REEL operation 
to an inappropriate device. if opere ation is close and error 
ptotye Jt is” nas _10P, SUCCEED with fLESTAT of ‘00°. 


Add i hy case for COBSK_EXC_ORG. RKR 04-OCT-79 

Use max and mins from REQUIRE Tile, add new table and new 
state Pe a i REEL, ioomnane changes, bugchecks at 
onoty. CANRANGE statements. 


Reh g0-c changes. 21-0CT-79 
pearcenee ste uses for tables CLOSE_T and CLOSEREEL_S_S_T. 


Add comments. RKR 05-NOV-79 
chenge resulting file status and action codes for 
RMSS_ for read actions. RKR 08-NOV-79 
Change Some table entries deat ing with creating of 
cual cate keys. RKR 11-NOV-7 
Added comments and made cosmetic changes. LB 3-MAR-81 
Changed code that checked the value of FP; if zero, a call 
is now made to SIGNAL_STOP indicating a fatal laterest error. 
Also, code was taken out that checke HT the current handler 
was COBSHANDLER; this is not a catch-all check since a user 
can setent tee his/her | own error handler. Also, added more 
comments. 81 
Replaced me trary signalling values for Ae rocoeue? code 
with appropriate symbol nenes now define SGDEF. 
Added ations for thi or’ of in spe EXTERNAL LITERAL 
declarations for this ~ ule. 
Changed external literal for no me procedure on open mode entry 
ane added an external Literal for lost handler for file specific 
ry to correspond with changes made to COBMSG.MDL. Changed 
eotte to LIBSSIGNAL to use SIGNAL for cons stency reason 
Optimized code by encasing calls to SIGNAL_S n BEGIN-END 
blocks. Changed the calls to SIGNAL to now yo an FA 
parameter (as is syntactically correct? even though the 
pereneter that is gett ng assed ° the handler is not an 

O parameter (note a" t $6. '¢ of sf etl ve in the error message 
text will ignore it). 6-APR-8 
Deleted the external isheceke tOBs iceman and COBS_LSTHNDLFL 
and added COBS_LSTHNDUSE. This waS done as a result of a change 
made in COBOL Fegarding | the scoping rules for USE proces res. 
Changed code in the area of loading up the resultant string 
descriptor to facilitate the added functionality of RAS special 
registers within COBOL. The code now loads the actual string from 


OEXCEPTION 18-sep-1 4 00:09:47 AX-11 Bliss-32 V4.0-74 Page 
cons ~300n 1382 90:05 ee : COBRTL.SRC COBINENTE BS2:1 . ( 
the FAB into the resultant string area within the NAM block in the 
case where the name block string benect and extended string length 
: ual zero. fhange ed code pa sgere ‘6. for USE procedures. 

ng e condit now Signet led in the case woere there are 
po = USE sicisut's but cannot ¥~ seen within cote Tevet of 
code) and an additional parameter is included in the signal (it now 
oe the entry point of a file specific USE procedure or 0 if none 
2 rh as the entry point of an open mode specific USE procedure 
none). Also, the final action code was removed from each of 
the separate blocks of search code for USE procedur $_ and moved to a 
single ode | outside of those blocks of code. LB 
1-027 - haded code in success status checkout code for reads sunich will 
= care of an unrepertes bug He exists in both the Vv 
‘ vers tone of the C ler. The code now eh i checks 
‘Ft e RMS_STS code indicates 2 a file that (soft) record locked. 
If s a it Sets the FILESTAT to 90 (instead of 0) and sets oe 
ACTION to CONTINUE Heasand of SUCCEED). Also caused the rea 
entries in THE table for RMS$_OK_RLK to be removed. LB 30cAPR-81. 
1-028 = Added code following the call~to COBSSINVOKE_USE to check the 
ACTION code. This code was added as a result of the current cote 
falling through into code that would signal an error. LB AY-81 
1-029 = Added a check before calling SIGNAL for ensuring that OPEN_ nD “ADDR 
and FILE_ADDR are not equal to zero (makin _sure that USE procedures 
do indeed exist before signalling). LB 
1-030 = Added COBS_KEYNOTMAT. Also, moved setting of ERR MSG -NUM slightly to 
allow BLISS to do more omega motion. Use PLIT_TABLE, and remove case 
statement to access correct action table. Rename BF ire consistently. 
Use common action tables. PDG 24-JUL-81 
Added aupeers for manual record soe kin ng: 
rror messages: COBSK_RE ECNOTLO and — uM uNor tL 
UNL_T table AND modification to PLIT_T E phe 5 $15 
1-032 = Added code fo move the COBOL condition value to oP RAB RASS, 13/313 
if the error is a non-RMS error (alternately, a error is 
oy ye by compiled code). This allows the RM ~STS/ 1V a 
to be meaningful within a USE procedure. PDG AUG- 
1-033 - Corrected the action code associated with RECNOTLOC to be SUCCEED, 
end Sponge the file status to ‘00’. 

-Aug-1 

1-034 = Adde support for UNLOCK in non-automatic record locking mode. 


1-035 = Added LIssstoP as external routine. LB 30-NOV-81 
1-036 = Changed UNL_T table entries for the RMS ISI ret RAB codes from 
GOTO to AOOnT. LB 1-DEC-81 
1-037 - changed REA_R_R, DEL_R_R, REW_R_R, STA_R 5. taple entries to include 
RMS$_MRN. Er ooh "is tfeated the Same as RASS ‘ arte NOT Remove 
equates of Indexed and Relative table for REA JR, REW_? 
S because MRN is not applicable to indexed Mites: and the Zoadition 
Shouia not occur; so we save table size. bh 10- 
1-038 - Add ans! 4 orgueent and some ANSI74 code aighange file status 13, 15, 
and 16 to file status 10). Without the ANSI74 argument there is no 
change to the file status values (13, 15, and 16). This allow 
VAX-11 COBOL Version 2 and Version 5 compatibility. vith the SANSI74 
erqunent file status values 15, 15, and 16 are al “changed to 10. 
This allows VAK=11 FORgt to pass Validation with no file status 
: errors. CR CT- 
1-039 - Added error handt ng for previous 10 was NOT succe osstul READ for 
DELETE and START statements. Added error COBSREAMP_D_R. Updated 
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585 if: sep-198 13:70:28 Heberte SeeScosrbeece ose: oe as | 
: COBSK_EXC_MAXM to 7 (also comments). Added COBSK_EXC -p10, code. 


1 

1 “BH 1-SEP-83 
| in 

1 
1 


! <BLF /PAGE> 


n 8 
cost OEXCEPTION Jo~se0= 138% 99: 9:47 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 12:10:48 COBRTL.SRCJCOBIOEXCE .852;1 


te 
} Field definitions for table. 


SSNS 
PPL LLLL EEE 


SO OONOAOUES WN 0 OONOUES WN“ O0OONO— 


7 13% i* suITCHES 
181 178 i. 
: § : ; SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
1 1 '¢ 
185 184 ' LINKAGES 
1 185 $ NONE 
18 1 ° = 
188 1 
189 188 lee 
190 189 ' TABLE OF CONTENTS: 
132 in 1 
198 8136 FORWARD ROUTINE 
194 813 COBSIOEXCEPTION ; 
196 198 J ts 
197 018 INCLUDE FILES 
199 198 1_ 
200 $199 REQUIRE ‘RTLIN: COBDEF'; ' COBOL specific RTL macros and literals 
$3) 064 REQUIRE "RTLIN:RTLPSECT® ; ! Macros for defining psects 
4 te LIBRARY ‘RTLSTARLE'; ' RTL routines 
04 0 ; '+ 
05 8 MACROS 
0 0 ; 
08 0 MACRO 
09 0 
0 
5 ; 
2 0 
2 0 TAB_STATUS= 0,0,32.0 %. ' RMS status code (or 0) 
§ 0 TAB_FILESTAT= 4,0,16,0 2%, ' COBOL file status 
075 TAB_ACTION= $.0.8.6 i, ' Type of recovery action 
2 0 TAB_ERR_NO= -0,8,0 &, ! COBS facility error number 
TAB_TST_STATE= 0. ne ' Optional state to test 
TAB_SET_STATE= 9,0,8,0 2, ! Optional state to set 


'¢ 
Macro to make table entries. 


2(A,8.C,0.E,FJ= 
LONG(AS, WORD(B), BYTE(C), BYTE((D-COB$_NO_USEPRO)*=3), BYTE(E), BYTE(F) 2%; 


'¢ 


: EQUATED SYMBOLS 


LITERAL 


mk ak a a at at a 8 st td = a = ts 
- 


FUN TSSONVO ARUN —SOMNen RW =O 
2 
SOOCOOSCOOOOOOOOoooo 
SN 
eee AE ee tte 


WAAL AIA RIPOPIPONININININY 9 OO Ow 


MIN_STATE = 0, ! Minimum state variable 
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OBS IOEXCEPTION iS-se 1984 90:09:47 AX-11 Bliss-32 V4.0-74 Page 6 
(O83 12-86 8=1 382 99: 0:48 COBRTL.SRC COBIDEXCE 68231 " (2), 
oo: ee Ho sonia. ee | 
; =Q, ! No special action 
3 $ ? 1 OPTF = ? ; : Opt ional tite 
; 8 7 § 1 OFNP = § . ! Optional ris not present (OPEN couldn't find) 
; 4 ae : NNVR = 3 , ! No next valid record (already seen EOF) 

; 
3 ry oe : MAX_STATE = 3, ! Maximum state variable 
: $08 re | 
: 344 78 14 | 
> 245 779 «1 ' Size of table entry. 
; eS 780 1 !- | 
> 24 781 #1 
; 248 re 1 TAB_S_ENTRY= 10, | 
: 249 7 1 
; 250 784 sO '¢ | 
; 251 0785 1 ' Values of ACTION. Resulting behavior 
3 26 14) 1 le 
3 @) ore 1 
; 254 788 #1 ABORT= 0, 
> 255 14) 1 
; 986 790 1 14 | 
: @ 0791 +#1 ! If an applicable USE procedure is present, 
3 $26 44 1 1 then invoke the USE procedure followed by 
3 2 0793 1 ' continuing at the ‘next statement’ (i.e. 
: 260 0794 #1 'R H 
; 261 0795 1 ! Otherwise, LIBSTOP with appropriate error 
3 $e 0796 1 ! signal. 
; se 0797 1 ! 
> 264 0798 1 GOTO= 1, | 
3; 265 0799 1 
> 266 0800 1 ! If an exception label is present, goto 
; 267 0801 1 ! exception label; 
; 268 44 1 ! Otherwise handle Like class ABORT. 
; 269 08035 1 ! 
; 270 Bape 1 CONT INUE= es 
; 74 805 1 
3 % 0806 1 ! If an applicable USE procedure is present, 
: 27 44 1 ' then invoke yse procedure followed by 
3: 276 0808 1 : continuing ‘immediately’ (i.e. RETURN 1); | 
; 275 0809 1 ! Otherwise, continue ‘‘immediately'’ 
3: ev gai 1 ' (i.e. RETURN 1) 
me ag 811 1 : 
3 f Big ' SUCCEED= 3; 
; 280 814 1 !' The COBOL 1/0 statement is successful in 
s 6B 815 1 ! every respect. Therefore, continue ‘ 
; gets 1 ! “immediately” (i.e. RETURN 1) after updating 
3 H+ Baie | } file status variable (if present). 
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14 
PSECT DECLARATIONS: 
DECLARE _PSECTS (COB) ; 
14 

EXTERNAL REFERENCES 


EXTERNAL ROUTINE 
Distt {NOVALUE . ! bignet fatal error 


cobs 


COBSSINVOKE _USE: 
EXTERNAL LITERAL 


COB$_NO_N 
coBs “RECLOCKEA: 
te RECLOC_0 


08 UNO 
COB$_REAINCOPE , 
COB$S_WRIBEYBOU, 
C7B$_ St reg 
( BS-WRIINCOPE, 


POAOOOOOOOAOOOOAIOOOOOA— 
Eastasnennennennemnanes 
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14-Sep-1 


' Declare psects for COBS$ facility 


OBOL exception handler 
*NOVALUE; : ake USE procedure 


' No USE procedure available for error on file !AS 
' Error on file r 


CK 
No filespace on device for file !AS 
File !AS not found on OPEN 

Optional file !AS nissing on CLOSE 
File !AS already clos 
No next logical recere on file !AS 
Optional file !AS missing on hy 
No next valid record on 
Record on file !AS is already ech (READ attempt) 
Record on file !AS already lock ae, but ok 
prtenet te READ on unopened file 

READ on file !AS incompatible wlth OPEN mode 
Attempting WRITE beyond Dounceries of file !AS 
artoapting WRITE on unopened file 
ile !AS incompatible with OPEN mode 

Attempting REWRITE on file !AS with ve previous READ or START 
as tones tng REWRITE on unopened file 

REWRITE on file !AS sanenng; tO42 wlen OPEN mode 

Record does not exist on file ~ e 
Optional file !AS missing on STA 
Record on file !AS is already locked (START attempt) 
Attempting START on unopened file 'AS 

START on Tile ‘AS incom ocnete uieh OPEN mode 

Record on file !AS {is already locked (WRITE otrenpt? 

Record = file iAS is eficets soenee (DELETE attonst? 

Attempt ing DELETE on file Wl 1 Fhoyt previous READ or START 
Attempting DELETE on ti a fil 

DELETE on SHile ‘AS incompatible oleh OPEN mode 

n file !AS is already pockee (REURI TE attempt) 

Attempt ng WRITE of duplicate A My. ile !'AS 
WRITE Srostes an allowed yo sa ., alternate key,0 on “ue ‘AS 
Attempting to WRITE nenveecond My key on 

Attem ging to WRITE fye! sexe * pean key on tite 
sroetes an - \oved que Licate alternate ke 


Record 


REWRITE 
Pri — record bey 8e le "3 changed between la and ‘neva 
Attempting to REWRITE disstioned duplicate key on 


COBRTL.. Per C COBIOEXCE. é 2;1 


peyoenerics ICRgciat FOG:8S PMG SueN 


3 3 76 «1 COBS_WRIDISDUP, ! Attempting to WRITE disallowed Supt Tcote “» on file !AS 

3 4 a on COBS_REASMAMIN, ! Attempting READ of variable Length smaller than minimum allowed from file ‘AS 
; 345 78 (1 COBS_WRISMAMIN,  ! Attempting WRITE of variable Length smaller than minimum allowed to file !AS 
3 $ 79 «1 COBS_REWSMAMIN, ! Attempting REWRITE of variable length smaller than minimum allowed to file !AS 
; 34 , 1 COBS_ORGNOTMAT, ! Attempting to open file whose organization does 

; 8 1 ! not match access mode 

; 349 ; 1 COBS_INVARG, ! Invalid arguments 

; 29 1 COBS_LSTHNDUSE, ! Lost handler for a USE procedure - environment corrupted !2(+) 

; 1 4 1 COBS_KEYNOTMAT, ! Attempting to open indexed file with keys whose description 

3 2 5 1 ! does not match those expected 

3 SD $ 1 COBS_RECNOTLOC, ! Record not locked in file !AS (UNLOCK attempt) 

3 4 1 COBS_UNLUNOFIL, ! Attempting UNLOCK on unopened file !AS 

3 5 5 1 COBS_UNLNO_CUR, ! Attempting UNLOCK on file !AS with no current record 

: $ 1 COBS_REAMP_D_R, ! READ must precede DELETE or REWRITE in sequential access mode 

oa 90 1 OTSS_FATINTERR;  ! Condition value 

; 358 891 1 

3 Bae 0892 #1 


oh rls Page 8 
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+o 


The following table contains the Logic which er ives 2 aoe portion 

of this program. During a table look-up, a match is found first on 

the RMS status code and on the State-to-test field. When a match is 
ou the State-to-set is set non-zero, the file etprus becomes 

i the file status returned to the users file status variable, Action 

! code controls the flow through the code te the error message is 

! the one signalled if the user has not provided a USE procedure to 

! deal with the problem. 


Each table must end with an onery that has a 0 for the RMS status 
code. This forms a default termination for the table lookup. 


SSSSSES8S 


oo 
oo 
Wwr—OO0o. 


SF 


5 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

: 

; B08 1! If the action code is SUCCEED, the Associated Error Message in the 
$ bit } table is academic since it is never signaled. 

3 ts : The following tables contain information as follows: 

3 0911 1 RMS status File ACTION Associated State State 
3 bo§ : code Status code Error msg to test to set 
; 0914 1 

; 0915 1 i- 

; O97 

; 0918 1 BIND 

; 0919 1 BASE = UPLIT(REP 0 OF (0)), 

; P0920 1 OPE_T = UPLIT BYTE(2( 

; P0921 1 MS$_FUL, '95', ABORT, COBS_NO_SPACE, 0, 0 

: P 09 é 1 RMS$S-FNF, ‘05°, CONTINUE,COBS-OPTMISOPE, OPTF, OFNP, 
; P 09 1 RMSS_FNF, '97', ABORT,  COBS-FILNOTFOU, 0, — 0, 

; P0924 1 RMS$-FLK, ‘91°, ABORT,  COBS"FILALRLOC, 0, 

; 09 5 0, "30", ABORT,  COBSTERRON_FIL, 0. 05), 
; P 09 : 1 CLO_T = UPLIT BYTE(7Z( 

; P0928 1 RMS$S_IFI, ‘OO', SUCCEED, COBS_OPTMISCLO, OFNP, 0, 

; P 09¢9 1 RMS$S_IFI, ‘'94°, ABORT,  COBSFILALRCLO, 0, ~ 0. 

: P 0930 1 RMS$_FAB, ‘94°, ABORT, COBS"FILALRCLO, 0, 0 

; 3 0, '98', ABORT,  COBSTERRON_FIL, 0. 05), 
; p 09 : 1 CLR_S_S_T = UPLIT BYTE(2Z( 

; P 0934 1 RASS_ISI, 190) SUCCEED, COBS_OPTMISCLO, OFNP, 0, 

; P0935 1 RMS$-ISI, '94°, ABORT,  COBS"FILALRCLO, 0, — 0, 

3 404 P 09 6 1 MS$_RAB, '94', ABORT,  COBS"FILALRCLO, 0, ‘ 

: P 0937 1 RMS$_IOP, 9 ** SUCCEED, COBS"NO_USEPRO. 0. . 

: 406 P0938 1 RMSS-EOF, ‘00°, SUCCEED, COBS$"NO-USEPRO, 0, 

; 407 939 a '98', ABORT,  COBS-ERRON_FIL, 0, 05), 
: 409 P0941 1 REA_S_S_T = UPLIT BYTE(2Z( 

+ 410 P0942 1 RASS_EOF, ‘16°, GOTO, | COBS_NO_NEXVAL, NNVR, 

> 611 P0943 1 RMS$S-EOF, ‘13°, GOTO COBS$"NO-NEXLOG, 0. NNVR, 
; aig P0944 1 RMSS-RLK, ‘92°, ABORT, COBSTRECLOCREA, ' 

> 41 P0945 1 RMS$-ISI, ‘15°, GOTO COBS-OPTMISREA, OFNP, 0. 

> 414 P 0946 1 RMS$-1SI, '94°, ABORT,  COBSTREAUNOFIL. 0, " 

; 615 P0947 1 RMS$-RAB, '94', ABORT,  COBS"REAUNOFIL, 0. : 

: 416 P0948 1 RMS$~FAC, Baie ABORT, COBS"REAINCOPE, 0, 

: 41 0949 1 0, "30°, ABORT,  COBS"ERRON_FIL, 0. S), 
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REA_R_R_T = UPLI 


“RASS_RNF, 


RMS$_1SI, 
RMS$_RAB, 
RASS _FAC, 


1.8.1 = REA 
REALI°S°T = UPL 
RM 


RMSS_RAB, 
RMSS_FAC, 


REA_I_R.T =U 
NF 


RMSS_RAB, 
RNSSIFAC. 


WRI_S S_T = UPLIT _BYTE(2Z¢ 
R 34" A 
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( 
GOTO 
aBort, 


ASS_FUL, BORT, 
RMS$_ISI, ABORT, 
RMS$_RAB, ABORT, 
RMS$_FAC, ABORT, 
0, ABORT, 

WRI_R_S_T = UPLIT BYTE(Z( 
RASS_FUL, ‘26°, GOTO 
RMSS$-RLK, agort, 
RMS$7151, ABORT, 
RMS$_RAB, ABORT, 
RMS$"FAC, ABORT, 
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COBS$_WRIBEYBOU, 
COBS-WRIUNOF IL. 
COBS"WRIUNOF IL. 
COBS—WRI INCOPE 
COBS"ERRON_FIL. 


9 
COBS10EXCEPTION bese =1984 00:09:47 AX-11 Bliss-32 V4.0-74 Page 11 
ett) 12-8 08- 138 99: 0:48 COBRTL. SRC ICOBIOENCE.B 2:1 ai 
: 475 a 0, '30', ABORT, COBS_ERRON_FIL, 0, 0)), 
: 47 Pi 5 1 WRI_R_R_T = UPLIT BYTE CZ( 
: 47 P1010 1 RMSS_REX, ‘22°, GOTO, COBS_WRIDUPKEY, . , 
> 47 P1011 1 RMSS-FUL, ‘26°, GOTO, COBS"WRIBEYBOU, ; , 
: 480 Pp 1 1 1 RMSS_KEY, ‘26°, GOTO COBS$-WRIBEYBOU, ; ; 
> 481 P1013 1 RMSS-RLK, ‘92°, ABORT,  COBS"RECLOCWRI. ; . 
: 48 P1014 1 RMS$_ISI, ‘94°, ABORT,  COBS"WRIUNOFIL, : 
: 48 P1015 1 RMS$-RAB, '94°, ABORT,  COBS-WRIUNOFIL. . ’ 
: 684 P 1016 1 RMSS-FAC, ‘94°, ABORT,  COBS"WRIINCOPE, , 
3 485 101 0, "30", ABORT, COBS[ERRON_FIL, . S), 
; tBs P 1018 1 WRI_I_$_T = UPLIT BYTE(Z( 
: 688 P1020 1 RASS_OK_DUP,'02', CONTINUE,COBS_WRICREDUP, 0, 0. 
: 489 P1021 1 RMS$-SEG, ‘21°, GOTO,  COBS"WRINOTASC, . ; 
: 490 P 10 : 1 RMS$S_DUP, ‘22°, GOTO,  COBS"WRIDISDUP, ; 0. 
: 491 P1023 1 RMS$-FUL, ‘24°, GOTO COB$ WRIBEYBOU, . ; 
: 49 P1024 1 RMSS_-RLK, ‘92°, ABORT,  COBSTRECLOCWRI. 0. . 
: 49 P1025 1 RMS$_ISI, ‘94°, ABORT, COBS"WRIUNOFIL, 0, ’ 
> 494 P 10 6 1 S$"RAB, ‘94°, ABORT, COBS"WRIUNOFIL. 0. . 
: 495 P1027 1 RMS$-FAC, '94°, ABORT, COBS-WRIINCOPE, Q. 0 
: 496 19 ; ‘ "30", ABORT,  COBS-ERRON_FIL, —e \* 
: 4698 P1030 1 WRI_I_R_T = UPLIT BYTE(Z( 
> 499 P1031 1 RAS$_OK_DUP,'02', CONTINUE,COBS_WRICREDUP, 0, 0, 
: 300 P 1038 1 RMS$S_DUP, ‘22°, GOTO, OBS-WRIDISDUP, 0. 0, 
; 501 P1033 1 RMS$_REX, ‘22°, GOTO,  COBS"WRIDISDUP, 0, 0, 
3 308 P1034 1 RMS$-FUL, ‘24°, GOTO COBS-WRIBEYBOU, 0. Oz. 
: 203 P1035 1 RMS$-RLK, ‘92°, ABORT,  COBS"RECLOCWRI. Q. 0, 
; 5 P1036 1 RMS$S_ISI, °94°, ABORT. COBS"WRIUNOFIL. : 0. 
: 505 P1037 1 RMS$-RAB, '94°, ABORT,  COBS"WRIUNOFIL, 0, ; 
; 506 P1038 1 RMS$-FAC, ‘94°, ABORT, COBS"WRIINCOPE, 0. 0 
: 207 1039 0, "30", ABORT, COBSTERRON_FIL, 0, O05), 
: 509 P1041 1 DEL_R_S_T = UPLIT BYTE(Z( 
: 510 P 1048 1 RASS_RLK, ‘92°, ABORT,  COBS_RECLOCDEL, 0, a 
> $11 P1043 1 RMS$S_CUR, '93°, ABORT, COBS"DELNO RS, 0. ‘ 
: 31 P1044 1 RMS$_ISI, ‘94°, ABORT, COBS"DELUNOFIL. : . 
: 51 P1045 1 S$"RAB, '94', ABORT,  COBS"DELUNOFIL, 0. ; 
: 514 P 1048 1 RMSS-FAC, °94°, ABORT,  COBS"DELINCOPE, Q. 0 
: 31 4 0, "30", ABORT, COBS-ERRON_FIL, . $), 
; i P 1969 1 DEL_R_R_T = UPLIT BYTE(2(¢ 
: 518 P 1050 1 RASS_RNF, ‘23°, GOTO,  COBS_RECNOTEXI, . 0. 
: 219 P1051 1 RMSS_MRN, ‘23°, GOTO COBS~RECNOTEXI. . “ 
: 20 Pp 1 5 1 RMS$S-RLK, '92°, ABORT,  COBSTRECLOCDEL. ; 0. 
; 521 P1053 1 RMS$_ISI, ‘94°, ABORT, COBS"DELUNOFIL, ; . 
: 5 ¢ P1054 1 RMS$-RAB, '94°, ABORT, COBS"DELUNOFIL. : ™ 
: 5 P1055 1 RMS$-FAC, '94°, ABORT. COBS$°DELINCOPE, H 
: 4 1056 1 30° ABORT,  COBS~ERRON_FIL, M §), 
38? 1057 1 
; 6 1058 1 DEL_I_S_T = DEL_R_S_T 
: 3 1059 1! DEL“I~S"T = UPLIT “BYTE 
: 528 1060 1: RASS_RLK, ‘92°, ABORT,  COBS_RECLOCDEL, ; ' 
> 529 1061 1 RMS$_CUR, ‘93°, ABORT,  COBS"DELNO RS, . ; 
: § 106¢ 1 i RMS$-ISI, ‘96°, ABORT,  COBS"DELUNOFIL, . . 
: 531 1063 1: RMS$"RAB, ‘94°, ABORT, COBS"DELUNOFIL. : . 


H 9 
COBS IOEXCEPTION 16-Sep-1984 00:09:47 AX-11 Bliss-32 V4.0-74 
ropes 12-808- 138 99:98 48 COBRTL. SRC ICOBIOEXCE .B 2:1 
; 1064 1! RMSS_FAC, '96°, ABORT, COBS$_DELINCOPE, : 
; 5 1085 i ee. 3G" ABORT, COBS"ERRON_FIL, 5: 8s), 
: §35 1069 1 DEL_I_R_T = DEL_R_R_T 
; 6 1 68 1! DEL“I“R“T = UPLIT BYTE (2( 
: 1069 1: RASS_RNF,  '23', GOTO, COBS_RECNOTEXI, ; : 
; 538 1070 1: RMS$-MRN, ‘23°, GOTO COBS-RECNOTEXI, : . 
: 2 9 1071 13 RMS$S-RLK, ‘92°, ABORT,  COBS"RECLOCDEL. . ; 
: 540 1076 1) RMS$_ISI, '94', ABORT. COBS"DELUNOFIL. ‘ ; 
> 541 1073 1: MSS-RAB, '94', ABORT, COBS"DELUNOFIL, ; 
; 248 1074 13 RMSS-FAC, '94', ABORT, COBS"DELINCOPE, : 
: sue 1075 i 0, "30", ABORT, COBSTERRON_FIL, a 5), 
: 545 P 1079 1 REW_S S$ _T = UPLIT BYTE CZ. 
: 546 P1078 1 RASS_CUR, ‘'93', ABORT, COBS_REWNORS, 0, 0, 
: 547 P1079 1 RMS$_ISI, ‘94°, ABORT, COBS"REWUNOFIL, 0. 0. 
: 548 P1080 1 RMS$_RAB, '94', ABORT,  COBS-REWUNOFIL, . 0. 
: 549 P1081 1 RMS$S_FAC, ‘94°, ABORT,  COBS-REWINCOPE, 0. 
: 330 1088 0, "30", ABORT, COBSTERRON_FIL, 0, 05), 
; 53¢ P1084 1 REW_R_S_T = UPLIT BYTE(Z( 
; 55 P1085 1 RASS_RLK, ‘'92', ABORT, COBS_RECLOCREW, 0, 0, 
: 554 P 1086 1 RMSS_CUR, ‘93°, ABORT, COBS-REWNO RS. 0. OO, 
: 555 P 1087 1 RMS$_ISI, ‘94°, ABORT,  COBS"REWUNOFIL, 0. 0, 
: 556 P1088 1 RMSS_RAB, '94', ABORT. COBS"REWUNOFIL, 0. 0, 
: 557 P1089 1 RMS$-FAC, °94', ABORT, COBS"REWINCOPE, 0, 0 
; 228 1090 ‘ "30", ABORT, COBS-ERRON_FIL, 0. 05), 
: 560 P 1098 1 REW_R_R_T = UPLIT BYTE(Z( 
: 561 P1093 1 RASS_RNF, ‘'23', GOTO, COBS_RECNOTEXI, 0, 0, 
; 362 P1094 1 RMSS_MRN, '‘'23', GOTO COBS-RECNOTEXI. 0. 0, 
: 56 P1095 1 RMSS-RLK, ‘92°, ABORT, COBSTRECLOCREW. 0. 0. 
: 564 P1096 1 RMS$-ISI, ‘94°, ABORT, COBS"REWUNOFIL, 0, 0. 
: 565 P1097 1 RMS$-RAB, '94', ABORT,  COBS"REWUNOFIL, 0. 0, 
: 566 P1098 1 RMS$S-FAC, '94', ABORT, COBS"REWINCOPE, 0, 0 
; 267 1099 0, '30', ABORT, COBSTERRON_FIL, 0. 05), 
: 569 P1101 1 REW_I_S_T = UPLIT BYTE(Z( 
: 570 P 1108 1 RASS_OK_DUP,'02',  CONTINUE,COBS_REWCREDUP, 0, 0, 
: 571 P1103 1 MS$-CHG, ‘21°, GOTO, COBS"PRIKEYCHA, 0, 0, 
: 278 P1104 1 RMS$-DUP, ‘oz, TO COBS-REWDISDUP, 0. 0. 
: 57 P1105 1 RMS$S-RLK, ‘92°, ABORT,  COBS"RECLOCREW. 0. 0. 
: 57% P 1106 1 RMS$-CUR, ‘93°, ABORT, COBS"REWNO RS. 0, ; 
: 223 P 110 1 RMS$-ISI, ‘94°, ABORT,  COBS-REWUNOFIL, , " 
: i: P1108 1 S$"RAB, '94', ABORT,  COBS-REWUNOFIL. ' ; 
: pu P1109 1 RMS$-FAC, '94°, ABORT,  COBS"REWINCOPE, 
: 28 1110 “ "30", ABORT, COBS"ERRON_FIL. 0, O05), 
; 240 P 1118 1 REW_I_R_T = UPLIT BYTE(2( 
: 581 P1113 1 RASS_OK_DUP,'02', CONTINUE,COBS_REWCREDUP, ’ : 
: 382 P1114 1 RMS$-DUP, ‘22°, GOTO,  COBS-REWDISDUP, . 
: 58 P1115 1 RMSS$S-RNF, ‘23°, GOTO COBS"RECNOTEXI. , 
: 584 P 1116 1 RMSS-RLK, ‘92°, aABorf, COBS“RECLOCREW, : ‘ 
: 585 P1117 1 RMS$-ISI, '94°, ABORT. COBS-REWUNOF IL. : ’ 
: 86 P 1118 1 RMS$-RAB, '94°, ABORT,  COBS-REWUNOFIL, ; : 
: 58 P1119 1 RMSS-FAC, ‘94°, ABORT,  COBS-REWINCOPE. ; 
: 588 1120 1 0, "30°, ABORT,  COBS"ERRON_FIL, . S), 
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; 589 1121 1 

; 590 P11 ; 1 STA_R_S_T = UPLIT BYTE(Z( 

; 591 P 11 1 “RASS_RNF, ‘'25', GOTO, COBS_RECNOTEXI, 0. NNVR, 
: 3 P1104 1 RMSS-MRN, '23', GOTO,  COBS-RECNOTEXI, NNVR, 
5 P1105 1 RMS$_ISI, ‘25°, GOTO COBS-OPTMISSTA, OFNP, 0, 

: 594 P11 : 1 RMS$_1S1, ‘94°, ABORT, COBS"STAUNOFIL, ' . 

: 595 Pilo7 1 RMS$"RAB, '94', ABORT, COBS-STAUNOFIL, , 

: %6 P1128 1 RMSS_-RLK, ‘92°, ABORT,  COBS"RECLOCSTA, ‘ ‘ 

: 59 P1129 1 RMSS_FAC, '94', ABORT, COBS-STAINCOPE, , 

: 298 ui 9 0, "30", ABORT,  COBS"ERRON_FIL, 5 a eh 
: 600 11 : 1 STA_I_S_T = STA_R_S_T 

; 601 1133 1! STALI~S-T = UPLIT-BYTE(2( 

: 60 1134 1/3 RMSS_RNF,  '23', GOTO,  COBS_RECNOTEXI, 0. NNVR, 
: 60 1135 1! RMS$S_MRN, '23', GOTO, COBS"RECNOTEXI, NNVR, 
3 604 1136 1! RMS$_ISI, ‘'25', GOTO COB$S-OPTMISSTA, OFNP, 0, 

: 605 1137 13 RMS$_I1SI, ‘94°, ABORT, COBS"STAUNOFIL, Sia = 

: 606 1138 i RMS$_RAB, '94', ABORT, COBS"STAUNOFIL, 0, 0, 

: 607 1139 1 RMSS$ =RLK, "92", ABORT, COBS-RECLOCSTA, 0, 0, 

3 608 1140 1: RMS$-FAC, '94', ABORT, COBS"STAINCOPE, 0, 0 

: 609 1141 i 0, "30", ABORT, COBSTERRON_FIL, 0, 05); 
: 611 P 1103 1 UNL_T = UPLIT BYTE(7Z( 

: 61g P1144 1 RMS$_RNL, ‘OO’, SUCCEED, COBS$_RECNOTLOC, 0, 0, 

: 61 P1145 1 RMS$_ISI, ‘94°, ABORT, | COBS"UNLUNOFIL, 0, 0, 

> 614 P1146 1 MS$_RAB, '94', ABORT,  COBS"UNLUNOFIL, 0. 0. 

; 615 P1147 1 RMS$-CUR, '93', ABORT, COBS"UNLNO_ ae a 

: 616 1148 1 , "30° ABORT,  COBSTERRONTFIL, 0, 05); 
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FLAGS, ! Type of 1/0 statement and type of exception 
° ! pedrese of associated RAB 
EXCLAB, ! Exception transfer Label (optional) 


LS ' Address of file ssetus variable (optional) 
ANS174 ! If true use ANSI 74 file status values (optional) 


)=z 


a 
aa 


FUNCTIONAL DESCRIPTION: 


This procedure is called to process a wide ver tety of 1/0 
exceptions. Depending on the nature of the exception, it sets the 
file status variable, causes USE procedures to be invoked and 

! signals errors. 


FORMAL PARAMETERS: 


FLAGS.rl.v - Type of 1/0 statement and type of exception 
RAB.ra.v - Address of RAB 
EXCLAB.jzi.v - Exception transfer Label (optional) 


STATUS.ra.r Address of file status variable (optional) 
ANSI74.rlu.v - If true use ANSI 74 file status values (optional) 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Value TRUE if SUCCEED, FALSE if other. 
SIDE EFFECTS: 
NONE 
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The USE List structure appears as follows: 


36! ‘COBSB_GUSE_CNT {COBSB_USE_CNT 
37: COBSA_USE_FILES 
: FILE SPECIFIC GLOBAL USE 
; PROCEDURES IN LOCAL PRGM 
* FILE SPECIFIC LOCAL USE 
> PROCEDURES IN LOCAL PRGM 
> FILE SPECIFIC GLOBAL USE 
> USE ENTRIES DEFINED IN 
> CONTAINING PROGRAM 
where 


0: COBSA_USE_PNC 
1 COBSA_USE_MODES 
2 


; MODE SPE 
; USE ENTR 


C 
I 


IF 
ES 


Ic 


COBSA_USE_PNC = address of perform nest counter for the declaring 


rogram. 
COBSA_USE_MODES - Base of the OPEN MODE entries. 
cific USE procedure defined for 


COBSB_USE_COUNT = Number of file 
this program. 


s 
T 


3 


s includes both local and 


global 


BASE OF OPEN MODE 


BASE OF 1ST FILE ENTRY 


file specific procedures defined both in this program 


and in containing pro 
COBSB_GUSE_COUNT= Number of file specif 


n the local program. 
COBSA_USE_FILES - Base of first file entry. 


=_=—.~_ @ 


erent . 
c global USE procedures defined 


(7) 


ross OEXCEPTION 


here 
COBSA_USE_PROC = 
COBSA-USE-EOPR = 


Se Se Ge Ge Se Ge Se Ge Fe Se Se Se Ge Ge Ge Se Ge Se Ge Geese tee 
~ 
~“ 

a kd a dd 


PARWNVAOSRVS APU OOOIEAE 


eH) tt ut st tt tt 


COBSA_USE_RAB = 


1 COBSA_USE_EOPR 


te 
! The structure of the USE entries appears as follows: 


sSeeeoeooeo errs eSeeeeoe 


Address of the USE procedure. 

Address of end of perform range block. 
It is a pointer to the end of perform 
range block for the USE procedure 

the entry was defined in this program 
r 0 if it was defined in a containing 


program. 
Address of RAB (only in file entries). 


AX-11 Bliss-32 V4.0- 
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Nn 9 
OEXCEPTION 16-Sep-1 2:09:47 AX-11 Bliss-32 V4.0-74 Fe 
4°85 1o-8ee=138e 93:98;08 = Hebante $aeicosrdeice 6S2:1 _ 
s 130 } vv BEGIN 
$ es 1 8 FLAGS: BLOCKC BYTE), ' 1/0 statement and error type 
; 79 1320 REF BLOCKL, BYTE); i Address of RAB 
: $9e 1353 
3 738 1 i LOCAL 
: 79 1324 FAB: REF BLOCK(C,BYTE), ' Address of FAB 
; 798 1325 NAM: REF BLOCKL,BYTEJ, ! Address of NAM block-used to 
; 799 1 § ! communicate optional filename 
; 800 1 ' related information. 
: 801 1 4 TABLE: REF BLOCKC,BYTE), ! Pointer to status decode table entry 
3 o¢ 1 RMS_ST ! STS value from FAB or RAB 
: 80 1350 RMS_STV ' STV value from FAB or RAB 
3 804 1331 FILESTAT, i COBOL file status 
3; 805 1 ¢ CTION, ' Recovery action 
$ B08 1 : REF BLOCKC,BYTE), ' Saved F 
$ $ 1 REF BLOCK BvTE De ! Pointer to USE List 
; 808 1335 NT: REF BLOCKL,BYTEJ, ! Pointer to USE List entry 
; 809 1 $ ERR_MSG_NUM, ! Longword COBS error number 
: 810 1 _ADBR, ' Stored entry point to file specific USE procedure 
F ai 1 $ OPEN_MD_ADDR, ' Stored entry point to open mode specific USE procedure 
3 ag : , SADESC? VECTORE2); ' Descriptor for RSA (resultant string area) 
; 814 1341 BUILTIN 
; 815 1 § ACTUALCOUNT, 
3 si$ 134 FP; 
: Ble 1348 MAP 
: : LOCKL,BY 3 
a8 1 FP REF BLOCKC,BYTE) 
; 820 134 
3; 821 1348 
; ase 1349 
: B94 1384 ‘6 
3 ! Ensure that the FL an arguments are present. 
a6 ' 3 : E h he FLAGS d RAB 
: 827 1384 
; 898 1355 IF ACTUALCOUNT() LSS 2 '\Error if FLAGS and RAB 
3 $ 1 2$ THEN !/arguments are missing 
3; 8 135 BEGIN 
r tt 1358 SIGNAL _STOP(OTSS_FATINTERR) ; 
- ¢ : 59 — 0; 
; B34 1361 IF .RAB EQL 0 
; 835 1 6 THEN 
: $39 136 BEGIN 
; 3 1364 BJ a her COE ER FEE BUTE RRD ! Error if RAB addr = 0 
3 $s : 5 sum 3 
; 840 136 FAB = .RABCRABSL_FAB); ! Fetch FAB address 
: 1 1 : IF .FAB EQL 0 
$ § 1 $ THEN 
; s¢ 1370 BEGIN 
> 844 1371 SIGNAL_STOP(OTS$_FATINTERR); ' Error if FAB addr = 0 
3 ae? 1 1 RETURN 0; 
s 6 137 END; 


a _ = . 
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9839 12=868=1 388 99: 0:48 ECOBRTL SRE COBIOEXCE.B52;1 - (9) 
; 847 1374 NAM = .FABCFABSL_NAM); ! Fetch addr of NAM block | 
; re : ie rn EQL 0 
: 850 1399 BEGIN 
; 1 1 4 Th a: "Saale cette iment ! Error if addr of NAM block = 0 
; § 137 RETURN 0; 
; 1380 END; 
2 ae 
; 856 1 : i Initialize the tenporary storage to be used Later 
3; 8 1384 ! when searching for a USE procedure. 
; B39 1386 5 | 
: 860 1389 FILE_ADDR = 0; 
; 861 1388 OPEN-MD_ADDR = 0; | 
: Be 1390 8 t+ | | 
> 864 1391 i Fetch the address and length of the resultant string area 
; 865 1 6 ! as defined in the NAM block. If the length field is zero, 
; 866 139 ! then fetch the extended string length field. If that too 
; 867 1394 ! is a zero length, then just use the FAB file name string 
; 868 1395 2 i mame and string length. 
. 
: 871 1398 RSADESCE1] = .NAMENAMSL _RSAJ; ' Fetch addr of resultant string area | 
; 87 1399 RSADESCCO) = .NAMCNAMS$B_RSLJ; ! Fetch resultant string size | 
: a7 e's ¥ aoe EQL 0 
; 875 1286 RSADESCCO) = .NAMCNAM$B_ESLJ; ! Fetch extended string Length | 
: Ht sent "wae 0] EQL 0 | 
; 878 1405 BEGIN aes | 
; 879 1608 RSADESCCO] = .FABCFABSB_FNS); ! Fetch file name string size 
: Bet 1408 r | 
; B82 1409 i Copy the string found in the FAB into the resultant | 
3; 883 1410 ! string area. By doing this, COBOL will just map a special 
> 884 1411 ! register to this area for obtaining the resultant name 
; 885 et ! string. 
: Bae 1214 = | 
; tt 1415 CHSMOVE (.FABCFABSB_FNS],.FABCFABSL_FNA], .NAMCNAMSL_RSA]); | 
3; 889 1018 END; 
; 890 141 
PR oi be 
; 38 1420 i Case on the error type. Note that COBSK_EXC_MINM | 
3; 894 1421 ! and COBSK_EXC_MAXM are the minimum (0) and maximum (7) 
3; 895 14 § ! values to be used for case statements involving error 
; 896 16 ! types. 
im tee & 
; 99 1? § CASE PLASC CORSU_ERC ERROR? FROM COBSK_EXC_MINM TO COBSK_EXC_MAXM OF 
: 901 14 
: 90 14 § COUTRANGE): ! Invalid value 
; 90 1430 BEGIN 
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Bd of OP kCOBS IMVARG) : 

RETURN 0; 

CCOBSK_EXC_RAB, COBSK_EXC_FABI: ! RMS RAB/FAB error 
BEGIN 

14 

} RMS error. Pick up the appropriate STS and STV. 


IF cet AGSCCOBSH_EXC ERROR] EQL COBSK_EXC_RAB ! Check specifically for RAB error 


BEGIN 
IF_.RABCRABSL_STS] EQL 0 'NIf status of RAB = 0 
THEN ' then signal as a 
BEGIN '/fatal internal error. 
SIGNAL _STOP(OTSS_FATINTERR); 
RETURN 0; 


END; 
RMS_STS = .RABCRABSL_STSJ; ! Load status code from RAB 
bl = .RABCRABSL_STVJ; ! Load status value from RAB 


te 
Here we know that we have a FAB error. 


ELSE 
BEGIN 
IF .FABCFABSL_STS] EQL 0 '\If status of FAB = 0, 
THEN ' then signal a 
BEGIN !/fatal internal error. 
SIGNAL_STOP(OTSS$_FATINTERR); 
A 0; 
RMS_STS = .FABCFABS$L_STSJ; ! Load status code from FA3 
+ Madd = .FABCFABSL_STVJ; ! Load status value from FAB 


+ 
Map the STS value into the appropriate COBOL file status. 


First, determine the lookup table to be used from the statement 
type parameter. Note that this must not be done by sea ba a 
table of addresses because of the need for this routine to be 
position-independent. 


IF_.RMS_STS 
THEN 


BEGIN ' Success cases -- are not 
! found by table look-up. 


'¢ 
! Perform a CASE on the 1/0 stmt type. Note that 


D 10 
C OEXCEPTION 16-Sep-1984 00:09:47 AX-11 Bliss-32 V4.0-74 Page 21 
ronss 18-808- 1382 90:08 tb COBRTL. SRCICOBIOEXCE .B 2;1 . (3) 
; 961 14 $ 4 ! COBSK_EXC_MINS and FOSSK XC_MAXS indicate the 
; 9 14 4 ! minimum (T) and maximum (44)"values for CASE 
; 6 1490 4 ! values for 1/0 statement types. 
epee sg ERS Ge 
3; > 1298 4 CASE .FLAGSCCOBSW_EXC_STMTJ 
; 96 1494 & FROM COBSK_EXC_MINS TO COBSK_EXC_MAXS OF 
; 968 1495 4 ae 
; 969 1638 4 COBSK_EXC_REASS, 
; 970 1497 4 COBSK_EXC_REARS, 
: 971 1498 4 COBSK_EXC_REARR, 
; 97 1499 4 COBSK_EXC_REAIS 
; 97 1500 4 COBSK-EXC-REAIRS: 
; 974 1501 BEGIN 
; 975 1 o¢ 
; 97 150 1+ 
; 97 1504 ' Successful read, reset NNVR (no next valid 
; 978 1505 ' record) = meaning EOF has been detected. 
; 979 1306 l- 
; 980 150 
; «981 1508 RABCCOBSV_CTX_NNVR] = 0; 
:; 98 1509 
; 98 1510 + 
3 984 1511 ! If the RMS_STS is for a soft record lock, 
; «985 138 ' then the FILESTAT should be set to 90 with 
; 986 151 ' an ACTION code of CONTINUE. 
; 4987 1514 != 
; 988 1515 
; 989 1516 IF_.RMS_STS EQL RMS$_OK_RLK OR .RMS_STS EQL RMS$_OK_RRL 
: 990 1517 5§ THEN 
; 991 1518 6 BEGIN 
: 236 1519 6 FILESTAT = ‘90°; 
; 99 1520 6 ACTION = CONTINUE; 
: 994 1521 g END 
3; 995 15 ¢ ELSE 
; 996 15 6 BEGIN 
; 997 3 4 6 FILESTAT = ‘00° ; 
; 998 1525 g ACTION = SUCCEED ; 
; .999 15 $ END; 
: 1000 15 4 “¥ : 
: 1001 1528 4 CCOBSK_EXC_WRIIS, 
3 1008 1529 4 COBSK_EXC_WRIIR, 
3; 100 1§30 4 COBSK_EXC_REWIS 
3 1004 1531 4 COBSK~EXC~REWIRS: 
: 1005 15 § BEGIN 
5 1008 15 
; 100 1534 '+ 
; 1008 1535 ' Successful write or rewrite on indexed 
: 94 15 § ' sequential file. 
: 1010 15 te 
3 1011 1538 
: 314 1539 IF .RMS_STS EQL RMS$_OK_DUP 
3; 101 1540 THEN 
3; 1014 1541 6 BEGIN 
3; 1015 1366 6 FILESTAT = ‘02° 
> 1 1543 6 ACTION = CONTINUE ; 
: 101 1544 6 END 


ay 
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14-Sep-1 
101 ELSE 
O18 BEGIN 
FILESTAT = ‘00° ; 
ACTION = SUCCEED ; 
END END 
CINRANGE . OUTRANGE): ! Unexpected success code 
2 a al (COBS_INVARG) ; '\Signal an error due to 
RETURN 0; '/invalid success code 
Tes; 
END 
5 ‘+ 
5 ! This section of code deals with the error cases for RMS 
5 : RAB/FAB errors, where we know that the LSB of RMS_STS 
5 } (status code) is zero. 
ELSE 
BEGIN 


4 

! Perform a CASE on 1/0 statement type. Note that 
! COBSK_EXC_MINS and COBSK_EXC_MAXS refers to the 
! minimum (T) and maximum (44) "CASE values that 
pertain to 1/0 statement types. 


if BEGIN 
IF (.FLAGSCCOBSW_EXC_STMT] LSS COBSK 
y FLAGSCCOBSWIEXC-STAT] GTR COBSK 


ELSE 
(TABLE = .PLIT_TABLEC.FLAGSCCOBSW_EXC_STMT]J) LSS 0 


BEGIN ! Invalid error code 
SIGNAL _STOP(COBS$_INVARG); 
RETURN 0; 


'¢ 

: Depending on the type of error that was found, |. 
' load the eppropr ie e table addresses into ‘TABLE 
“ee is the pointer to the status decode table 

! entry. 

le 


TABLE = BASE + . TABLE; 


'¢ 

! Find the epprepr sete ey! 

' there must be one. Note that 
RMS status code or a zero. 
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UNTIL 
ue (, TABLECTAB_STATUS] EQL 0 OR .TABLECTAB_STATUS] EQL .RMS_STS) 


* 

If the test-state field of this entry is non-zero 
we must perform a further check to determine if the 
entry we have selected is the one we want. If the 
variable indicated by the test-state setting is not 
set, we advance the table pointer to the next entry. 


ay 3 - TABLECTAB_TST_STATE] FROM MIN_STATE TO MAX_STATE OF 


CNULLI: ! No special action 
Coptr): ! If set, then an optional file 
-RABCCOBSV_CTX_OPTI; 
FNP): 'NIf set, then optional 
-RABCCOBSV_CTX_OFNF J; '/file not present 
R): 'NIf set, then no next 
-RABCCOBSV_CTX_NNVR); !/valid record (EOF detected) 


TES) 
dO 


ts 

! Incr the address of the table to peiet to the 
! next table entry if the TAB_TST_STATE field of 
the entry was not set. 


BEGIN 
TABLE = TABLE + TAB_S_ENTRY; 


1+ 
! Extract the file status code, action code and 
error message number for this error situation. 


FILESTAT = .TABLECTAB_FILESTAT); ! Load COBOL file status 


+ 

! 1-038 code. 

If fifth Parengser present then change the file status 
values of 13. 15, and 16 to 10. This change affects three 
table entries, REA_S_S_T, REARS T, and REALIST. At this 
time it was not were beg | to Check that the Change was made 
on these three entries, but perhaps in the future this 
additional check will be needed. 


IF ACTUALCOUNT() GEQ 5 THEN 
IF .ANSI74 THEN 
IF (.FILESTAT EQL '13° OR 
»FILESTAT EQL ‘15° OR 
-FILESTAT EQL °16°) 


1 4 Page 24 
14-Sep-19 COBRTL. SRC ICOBIOEXCE .B32:1 oe 8) 
THEN FILESTAT = "10°: 


ACTION = .TABLECTAB_ACTION); } bond type of recovery action 
ERR_MSG_NUM = (.TABCECTAB_ERR_NOJ*3) + COB$S_NO_USEPRO; 
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'¢ 


: ee to see if we need to set some state bit in 


'/optional file not present 
'\Set state in COBOL file 

' context area indicating 
'/NNVR (EOF detected). 


6 

6 so 

66 ! conjunction with this error situation <= signaled 

0g9 by @ non-zero entry in .TABLECTAB_SET_STATE 

° ! 

er CASE pTABLECTAB_SET_STATE) FROM MIN_STATE TO MAX_STATE OF 

er8 NULLJ: ' Null clause 

679 CoPTF 4: ! Null clause 

ers COFNP): '\Set state in COBOL file 

ors RABCCOBSV_CTX_OFNF) = 1 ; ! context area indicating 
0 
1 


CNN 


4 


" 
— 
os 


VR): 
RABCCOBSV_C1X_NNVRJ 


TES; 
END; 
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1+ 
Additional error types. 
CCOBSK_EXC_FLK]: 

BEGIN 


'¢ 
: cones ted code detected an OPEN directed to a file closed 
! WITH LOCK. 


le 
ERR_MSG_NUM = COBS_FILCLOLOC ; 
RMS_STS = 8: '\Init RMS status code and 
RMS_STV = i '/status value from FAB/RAB to zero 
FILESTAT = ‘94°; 
ACTION = ABORT; 
5 RAB paps StS) = ,ERR_MSG_NUM; 
RAB RABSL“STV) = 0; 


CCOBSK_EXC_OPNJ: 
BEGIN 


'¢ 
' Compiled code detected an OPEN directed to a file 
' already open. 
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16-Sep-1984 00:09:47 AX-11 Bliss-32 V4.0-74 
19-80-1388 90:08 tg COBRTL. SRC ICOBIOEXCE B32; 1 
te 
RMSre Tene Os ne '\Set RMS stat de and 
RMS-STV = 8; i/status value tres f AB/ RAB to zero 
FILESTAT = "94°; 
ACTION = ABORT; 
RAB RABSL_STS3 = ,ERR_MSG_NUM; 
RABLRABSL-STVJ = 0; 
END; 
EXC_ORG): 
GIN 


14 
' Compiled code detected an OPEN to a fi 
! does not match the access mode specifi 


ERR_MSG_NUM = COBS_ORGNOTMAT ; 
+ 3 . 


nose organization 


le 
ed in OPEN 


RMS_STS = 0; '\Set RMS status code and 
STV = 0; '/status value from FAB/RAB to zero 
FILESTAT = ‘94° 


ACTION = ABORT; 
RABLRABSL_STS] = . 
RAB RABSL~STV] = 0 


ERR_MSG_NUM; 


CCOBSK_EXC_MIN): 
BEGIN 
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'¢ 
! Compiled code detected an operation on a variable length record that 
} is smaller than the minimum allowed. 


'¢ 

!' Determine the 1/0 statement type that fai 
! the eperane late message. Note that COBSK 
! COBSK_EXC_MAXS refer to the minimum (1) a 
CASE values for 1/0 statement types. 


ed and select 
axe MINS and 


l 
nd maximum (44) 


CASE .FLAGSCCOBSW_EXC STMT] 
or COBSK_EXT_MINS TO COBSK_EXC_MAXS OF 


14 

! Class of read errors, varying in file organization 

!' and access type. for this type of 1/0 error, return 
' an error message ston teyice attempting a read o 
variable length smaller than the minimum allowed. 
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COBRTL.SRCJCOBIOEXCE .B352;1 


“COBS_REASMAMIN ; 


i Class of write errors, varying in file organization 


' and access type 


- For this type of 1/0 error, return 


! an error message he PS attempting a write of 


variable lengt 


14 


smaller than the minimum allowed. 


“COBS_WRISMAMIN ; 


i Class of re-write errors varying in file organization 


' and access type 


. For this type of 1/0 error, return 


! an error message signifying attempting a re-write of 


variable lengt 


CCOBSK_EXC_REWSS, 
COBSK-EXC-REWRS, 
COBSK-EXC-REWRR, 
COBSK“EXC~REWIS 
COBSK~EXC~REWIRI 

ERR_MSG_NUM = 

CINRANGE): 


smaller than the minimum allowed. 


COBS_REWSMAMIN ; 
! Invalid error statement 


SIGNAL_STOP (COBS_INVARG) ; 
RETURN 0; 


TES; 


CCOBSK _EXC_KEY): 
BEGIN 


'\Set RMS status code and 
'/status value from FAB/RAB to zero 


4 
T 
} = gERR_MSG_NUM: 


'¢ 
! Compiled code detected an OPEN of an indexed file with keys 


: that do not match those described by the program. 


roe 


ACTION = ABORT; 
RABCRABSL_STS) = .ERR_MSG_NUM; 
oa RABSL_STV) = 0; 


WAN 


TES; ! End of case on error type 


FUN SO ODNAOUEWN “CO OONOUS WN —O0@ 


10 
OBSIOEXCEPTION 1b-Se -1984 00:09:47 AX-11 Bliss-32 V4.0-74 Page 
eit) 1eagee=13be $3: fide | Leben tae Scag hence oS2;1 a Og 
03 9 ERR_MSG_NUM = COBS_KEYNOTMAT ; 
RMS_STS = 8: '\Set RMS status code and 

05 § RMS_STV = F '/status value from FAB/RAB to zero 
p8 FILESTAT = '94'; 
0 4 ACTION = ABORT; 
0 5 RAB Aerts, = ,ERR_MSG_NUM; 
0 6 RABLRABSL-STV] = 0; 
1 END; 
5 
1 840 CCOBSK_EXC_PIO): 
1 oe) BEGIN ~ 
i rk 1 
1 44 i Compiled code detected a DELETE or REWRITE which was not preceded 
: ig by a successful READ while in sequential access mode. 

4 . 
g 48 ERR_MSG_NUM = COBS_REAMP_D_R ; 
2 49 RMS_STS = 0; '\Set RMS status code and 
3 39 S_STV = 0; '/status value from FAB/RAB to zero 
5 i 
3 8 

9 

0 


WANNA AAA 


ERR_MSG_NUM -- COBS es Pa i error condition code 
to be signalled if there is no USE 
procedure available. 
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3 8 '¢ 
3 8 ! At this point in the code, the following have. been 
36 $e } computed: 
4 864 RMS_STS -- RMS status extracted from FAB/RAB 
39 866 i RMS_STV -- Extended RMS status extracted from 
a9 Ht FAB/RAB 
3e Boo i FILESTAT -- COBOL file status to be returned to 

? oy caller via optional argument. 

5 2 i ACTION -- Subsequent action 

§ 7 ¢ Possible settings are: 

74 : ABORT 

8 154 : GOTO 

] 6 ! CONTINUE 

0 87 ! SUCCEED 

1 378 ! (See definitions in LITERAL 

¢ declarations) 

: $i 

$ j i 

§ 
8 5 
9 6 
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¢ 
: Store the COBOL fi : status if gg be ob get 
! Note that ‘STATUS’ is an optional input parameter 
' that is used to return the COBOL file status to 
4 
4 
4 
4 
6 
4 
4 
4 


— 


the caller. 


HF Ee Cont Co GEQ 4 THEN IF .STATUS NEQ 0 
(.STATUS)<0,16> = .FILESTAT; 


' 

900 ! If the error is one that requires transfer to the exception label and 

901 ! it is present, go there by replacing the return PC in the stack 

O08 } frame with the exception PC and executing a return. 

904 

44 © eet EQL GOTO THEN IF ACTUALCOUNT() GEQ 3 THEN IF .EXCLAB NEQ 0 
80 90 BEGIN 
HH 90 FPCSFSL_SAVE_PC] = .EXCLAB; 

90 RETURN 0; 


‘+ 
If the action is SUCCEED, return to the 1/0 statement. 


ate y tt wes 


WAWAG 


SSES 


IF_.ACTION EQL SUCCEED 
RETURN 1; 


ooo 
wn 


1+ 
Search for an appropriate USE procedure. 


WWAWNIAIANAAG 


MOMIPOPONIND 2 


= .FPCSFSL_SAVE_FP); ' Get saved FP 

EQL 0 'NIf frame pointer is 
' zero, then we have 
'/serious problems 


SFP 
IF 
T 


LSSSRLSSE 


BEGIN 
SIGNAL_STOP (OTSS_FATINTERR); 
RETURN 0; 
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$A_SF _USE]; ! Get USE List 
If any DECLARATIVES 


SBS 


'¢ 
' Search for a USE procedure declared for the speci tte file 
fied by the 


WANA 
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' on which the exception occurred. It is ident 
RAB address. 
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1 USEENT = USECCOBSA_USE_FILES]; ! Point to first | 

1 DECR I FROM .USECCOBSB_USE_COUNTJ-1 TO 0 DO ! Count of file entries 

1 BEGIN $ Loop over files 

ot ee EQLA .RAB ! Right file? (find matching RAB addrs) 
BEGIN 


i] 
' The EOPR value will be non-zero if the perform 
' range is in the current level of the code. f 

! the EOPR is zero, then the USE procedure can't 

' be seen in the contained = environment, and 

! therefore, an error must be signalled. Note that 

' the USE procedure may be found, since it is possible 
' that the USE procedure was in a different level of 

' code (an up-level reference). If this were the case, 
' then this would be resolved in COBSHANDLER (or a 
user-defined handler). 


MFWN ("OCONEE WN —OOa~ 


Any ee tere ee Ne oe Niet 


WMO OONG NEW "OOONAUE 


IF .USEENTCCOBSA_USE_EOPR] NEQ 0 !Check addr of end of 
'perform range block 


SRERPRARARANRARAL EEE EE 


oo 


BEGIN 
COBSS INVOKE _USE ( '\Invoke USE procedure; 

'/USE proc is at current level 
-USEENTCCOBSA_USE_PROC],! Addr of USE procedure 


PEE EB EE FENDA A AA AAD SINNER A AAA AAA AAA AA AAA AMINE & 


i 
5 
39 66 
40 67 
41 8 
$s 9 
4 970 
44 971 . sf 
45 97¢ SFP srst SAVE_APJ, 
46 97 -USEENTCCOBSA_USE corn. 
47 974 -USECCOBSA_USE_PNTJ); 
48 975 If .ACTION EQL” CONTINUE 
49 976 THEN 
50 977 RETURN 1 
51 978 L 
26 979 RETURN 0; 
5 980 ND 
54 981 ELSE 
55 oa6 
56 98 '¢ 
57 984 ' Save the address of the file specific USE 
38 HH procedure for later call to SIGNAL. 
60 $87 
3 2 3 “ FILE_ADDR = .USEENTCCOBSA_USE_PROC); 
8 350 USEENT = .USEENT + COBSS_USE_FILES; ! Step to next entry 
64 991 END; 
65 644 
99 


ser: 


+ 
Fall into this section of code since no entry for the 
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994 ‘ 
995 ! 
$° o3e ! specific file was found. See if a USE procedure has been 
0 99 ! declared for the open mode. Note that the goer mode : 
71 138 ! entries are jNeUr. OUTPUT, I-0 and EXTEND with corresponding 
% 1 ' values of 0,1.2,5. Also note that the field reference of 
7 2000 i CCOBSB_CTX_MODES refers to the open mode entry field. 
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IF | ,RABCCOBSB_CTX_MODE] GTRU COBSKCTX_MAX 


BEGIN 
1 4 late mteatatiat 
RETURN 0; 


3s UMPW— 


QPP EB BLN DSSS DAP DPE DP PAPA PDD Paar B= SS SII 
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ND; 
USEENT = USECCOBSA_USE_ MODES] + COBSS_USE_MODES*.RABCCOBSB_CTX_MODE); 
IF A USEENT COBSA_USE_PROC] NEQA !“USE declared? 


BEGIN 


ARaNweo 


| 
i 
| 
. + | 
! Check address of the End of Perform Range Block - 
! if non-zero, then invoke the USE procedure. Note 

i that EOPR if non-zero, indicates that the USE procedure | 
! can be invoked immediately since it is in the current 

' level of code. Otherwise, an EOPR of zero indicates | 
! that the USE procedure can't be found, which causes 

! an error to be signalled. Note that the USE procedure 

! may be found, since it is possible that the USE procedure 

i was in a different Level (an pea tee reference). This 

! would get resolved in COBSHANDLER 


| 

| 

(or a user-defined 

! handler). 


IF_.USEENTCCOBSA_USE_EOPR] NEQ 0 
THEN 


RENLSSSLESRANLESE 


BEGIN 
COBSSINVOKE_USE( ! Invoke USE 
-USEENTECCOBSA_USE_PROC), ! Addr of USE procedure 


.U 

<FP SFst SAVE_AP], 

SUSEENTLCOBSA-USE FOPRI. 
USE_PNC)); 
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Sele 


Sar 


-USECCOBSA_ 
IF ACTION EQL~ CONTINUE 


RETURN 1 | 
RETURN 0; 
D } 


ne ne ne ee nw ww wala lo lolololelolololololololololo) 


WAG 


N 
ELSE 
'¢ 


i Save the address of the open mode USE | 
procedure for later call to SIGNAL. 


a eb eh US ttt 


DONO NEW O OONO UE WN O 


NOUS WN OOO 


RRRELERESE 


i OPEN_MD_ADDR = .USEENTCCOBSA_USE_PROC); | 


+ 

' Note that the error that is signalled is 

: "Lost handler for USE procedure - environment 

' corrupted so that if a USE procedure isn't found, 
! then this message would appear at the user 
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Soret Ve-Sep-t98e Ve:tores — ECoantursneicoB10eKce-682; 1 


: 1531 H 4 ' level. 
' 4 
. 7 4 IF_.FILE_ADDR NEQ 0 OR .OPEN_MD_ADDR NEQ 0 
: 1832 : MHEEGIN 
31 SIGNAL_(COBS_LSTHNDUSE,2,.FILE_ADDR,.OPEN_MD_ADDR); 
31 8 065 IF .ACTION EGL CONTINUE 
3 3 ¢ N 
; : re Des RETURN 1 
3 1 +g RETURN O ; ! ALL done; assume ABORT case 
3 154 0 4 END; 
3 1546 71 END; 
3; 1545 i END; 
3 7 re 07 
3: 1546 074 '¢ 
3: 1548 075 ! Return a 1 for CONTINUE action if a USE procedure 
3 1549 878 ' has not been found. 
3 1330 07 t= 
3 1551 4 
; } 25 B IF .ACTION EQL CONTINUE 
: 1554 a8 RETURN 1; 
3; 1555 0 ¢ : 
3 1328 4 t+ q? 
3; 155 084 4 Signal the error, since no USE procedure was applicable. 
3; 1558 085 !' (GOTO with no exception Label and ABORT cases) 
3; 1559 bee - 
3; 1560 08 
3; 1561 088 SIGNAL_STOP( 
3 1208 089 -ERR_MSG_NUM, 1, RSADESC, 
3; 156 090 »RMS_STS 
> 1564 09 =RMS STV); 
3; 1565 09 
3: 1566 09 RETURN 0 ! Never gets here... 
3: 1567 2094 1 END; 
TITLE COGS IOEXCEPTION 
IDENT \1-039\ 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 
0000 P.AAA: .BLKB 
00918546 09009 P.AAB: .LONG #9652 
5 39 00004 “neta i \ 
e $$ -BYTE <<COBS_NO_SPACE-COBS$_NO_USEPRO>@-3> 
08 BYTE 
0 -BYTE 
009182 a LONG $962 
a ae 
e 1 -BYTE <<COBS_OPTMISOPE-COB$_NO_USEPRO>@-3> 
1 \ -BYTE 1 
2 1 BYTE 2 
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-NO_USEPRO-COB$_NO_USEPRO>@-3> 
ERRON_F IL-COB$_NO_USEPRO>@-3> 
-NO_NEXLOG-COB$_NO_USEPRO>@-3> 
_RECLOCREA-COB$_NO_USEPRO>@-3> 
_OPTMI SREA=COB$_NO_USEPRO>@-3> 
_REAUNOF IL-COB$_NO_USEPRO>@-3> 
~REAUNOF IL-COB$_NO_USEPRO>@-3> 
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-Sep-1 0 COBR COBIOEXCE ( 
O1F8 $1 000ES 108: BR ot ia 1553) 
FD A? ; A O00E8 11$:  BICB2 #2, -3(R7) : 1508 
00018021 8F é D E CMPL RMS_STS, #98337 : 1576. 
9 1 F BEQL 128 : 
00018029 =F 4 rp cmPL RMS _STS, #98345 : | 
53 3039 «BF ¢ FE 12$:  MOVZWL #12345, FILESTAT + 1519 
E 1 BRB 14 : 1320 
00018011 8F 4 0100105 13$:  CMPL = RMS_STS, #98321 : 1539) 
A \2 010¢ BNEQ 15$ : 
53 3230 BF ¢ 0108 MOVZWL #12848, FILESTAT : 1543 
3 DO 00113 14$:  MOVL #2, ACTION : 1543) 
11 O116 BRB 16$ ; 1332 
53 3030 8F 3C 00118 15$:  MOVZWL #12336, FILESTAT + 154 
5 03 p60 00110 MOVL #3, ACTION + 1548 | 
01 : 1 4 168: BRW 4o$ : 1332 
¢ 15 00123 17$:  BLEQ 10$ : 1575. 
2c 2 Bi 001 CMPW Re #46 : 1576 
BB 1A 00128 BGTRU 108 : | 
52 FE77 CF42 3C OO12A MOVZWL PLIT_TABLECR2], TABLE > 1580) 
B3 19 00130 LSS 108 : 
52 F9OD CF4 9 001 é MOVAB BASECTABLEJ, TABLE > 1594. 
\ 6 D5 00138 18$:  TSTL (TABLE) > 1603 
13 0013A BEQL 198 : 
54 $2 D1 01 C CMPL (TABLE), RMS_STS ; 
21 12 0013F BNEQ gas ; 
03 00 08 A2 8F 00141 19$:  CASEB &S(TABLE), #0, #3 + 1614 
0017 0011 000A 0021 00146 20$: .WORD 38° Os. : | 
es- 0$:- : 
$-20$ : | 
1711 OO14E BRB 5$ F | 
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10 11 00155 BRB 25§ : | 
07 FD A? EO 00157 22$: BLBC -3(R7), 24$ : 1621 
OA 11 00158 BRB 25$ ; 
05 FD AT 01 EO 0015D 23$: BBS #1, -3(R7), 25$ t 1623 
52 OA C O162 4$:  addDL2 #16, TABLE + 1634 
D1 (11 O16 BRB 18$ : 1602 
53 04 A2 3 167 25$ MOVZWL 4(TABLE), FILESTAT : 164 
05 6C 91 00168 CMPB CCAP), #5 > 1654 
24 1F 16¢ BLSSU 278 : | 
20 16 AC €9 001 BLBC  ANSI74, 27$ : 1655. 
00003331 F 3 bt 1% CRPL PILESTAT, #13105 > 1656. 
00003531 8F 3$ pi 00170 CPL FILESTAT, #13617 : 1657, 
90003631 8F : pj CPL eigestat. #13873 : 1658 | 
5 3031 BF 3¢ 18F 368 MOVZ2WL #12337, FILESTAT ; 1659 | 
06 A2 9A 001 4 MOVZ (TABLED ACTION + 1661 | 
0 07 =A 9A 198 MOVZBL (TABLE) R + 1662 | 
0000000069F 4 E 0019¢ MOVAQ #08 NO_USEPROCROJ, ERR_MSG_NUM 3 | 
03 A2 BF OO1A4 CASEB «(CT ). #0, # > 1671 | 
0010 000A 00D 00D 1A9 28$: WORD 4gs- $.- : | 
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54$-36$ é 
56 000000006 ef 00 38 37$: HOVE #60BS_REASMAMIN, ERR_MSG_NUM t 1776 
56 000000006 ef 00 4 ; $: OVL #COBS_WRISMAMIN, ERR_MSG_NUM ; 1790, 
56 000000006 8F 00 4A 408: MOVL #GOBS_REWSMAMIN, ERR_MSG_NUM ; 1804 
4 | 41$: BRB : | 
56 000000006 BF 00 aes: MOVL § #COBS_KEYNOTMAT, ERR_MSG_NUM ; 1830) 
4 D4 A438:  CLRL = RMS_STS + 1831 
9 D4 C CLRL = RMS “STV :1 3 
53 3639 BF ; MOVZWL #13369, FILESTAT +1 
10 1 6 BRB 45 : 1854 
56 000000006 8F 00 00265 44$:  MOVL = #COBS_REAMP_D_R, ERR_MSG_NUM + 1848 
4 D4 0 6C CLRL =—-RMS_STS : 1849 
9 D4 5 CLRL RMS STV + 1850 
53 3339 BF 3 00 MOVZWL #13713, FILESTAT + 1851 
5 D4 00275 45$: CLRL CTIO : 185¢ 
08 A? 6 D0 0 7 MOVL § ERR_MSG_NUM, 8(R7) > 185 
oc A ps 7B CLRL =—-: 12 (R7) + 1854 
04 6 1 OO27E 46$: CMPB (AP), #4 + 1894 
9 1F 00281 BLSSU  _47$ ; 
10 AC 03 0 83 STL STATUS ; 
04 1 86 BEQL 47$ ; | 
10 BC 23 BO 00 MOVW  FILESTAT, aSTATUS > 1896 
01 55 D1 0028C 47$:  CMPL ACTION, #1 : 1905 | 
11° 12 0028F BNEG 48$ : | 
03 6C 91 00291 CMPBs«( AP), #3 : | 
OC 1F 00294 BLSSU 48$ ; | 
Oc AC D5 0296 TSTL EXCLAB ; 
07 13 00299 BEQL 48$ : | 
18 AE 0c AC 00 00298 MOVL EXCLAB, 24 (FP) + 1908 | 
48 11 002A BRB 6$ : 1909 | 
03 55 D1 002A2 48$:  CMPL  ACTION, #3 : 1916 | 
03 12 002A BNEQ  49$ : | 
0092 31 002A7 BRW 64$ : 
52 14 AE DO O02AA 49$: = MOVL g0(FP), SFP > 1926 
03 12 OO2AE BNEO 0$ > 1925 
FB 31 0028 BRW 5$ : 
53 ag 009 0283 50$:  MOVL <-4(SFP), USE ; 1933 
7E 13 0028 BEQL  63$ : 19 
5 8 AS 9E 00289 MOVAB 40(R3), USEENT : 1944 
5 4 A3d 9A 08D MOVZBL 36(USES, ] + 1945 
11° 11 002c1 BRB 4, F 
57 08 A2 01 C3 51$:  CMPL B(USEENT), R7 $1947. 
08 1 ¢ BNE 2 ; 
04 A2 D ¢9 TSTL 4 (USEENT) > 1964 | 
ah CC BNEG 58$ ; | 
58 20 0 cf MOVL sVaEENT) FILE_ADDR ; 1988 
52 Q C 6 D 538: ADDL2 #1 ySEENT : 1990 | 
E F4 00204 53$: SoBGea I, §1 2 1945 | 
FE A? 9A 00207 MOVZBL -2(R7), RB : 200 
0 8 91 002DB CMPB ORS, #3 ; 
F 1B DF BLEQU 57$ : 
000000006 8F DD 0020 54$:  — PUSHL cB INVARG > 2006 | 
000000006 00 i FB E6 38: CALLS #1, LTBSSTOP F sal 
52 04 A348 7E OOZEF $3: MOVAQ 4(USE)CR8], USEENT + 2009 
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B OD 1 
g 1 8 1 
A D0 19 
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2A DD 00310 
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DD 00323 
000000006 8F DD 00 3 
000000006 00 3% FB 00 
02 5 01 00 9 
1D 12 00 
05 11 88 > 
02 95 01 00337 
04 is 0033A 
50 01 00 0033c 
04 38 F 
0210 8F B8B 00340 
08 AE 9F 00344 
Q DD 00347 
6 00 toes 
000000006 00 > FB 00 8 
0 04 page 
04 00354 
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ybSen-198 00:09:47 yan=tt OLiegc32 v4.0-743, 


1569 2095 0 END ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 

Name Bytes Attributes 

_COBSCODE 2321 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ecoceces Symbols oooeooe= Pages Processing 

File Total Loaded Percent Mapped Time 

.$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 38 0 581 00:00.7 
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